home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Bowers Development / AppMaker 2.0b5 / Examples / Procedural / Gadgets / ProgressBars.c < prev    next >
Text File  |  1996-03-19  |  3KB  |  134 lines
  1. /* ProgressBars.c */
  2. /* Created 01/01/95 12:01 PM by AppMaker */
  3.  
  4. #include <Types.h>
  5. #include <Quickdraw.h>
  6. #include <Controls.h>
  7. #include <Dialogs.h>
  8. #include <Events.h>
  9. #include <Lists.h>
  10. #include <Menus.h>
  11. #include <Resources.h>
  12. #include <TextEdit.h>
  13. #include <ToolUtils.h>
  14. #include "ResourceDefs.h"
  15. #include "Globals.h"
  16. #include "Miscellany.h"
  17. #include "Scrolling.h"
  18. #include "WindowAids.h"
  19. #include "GadgetsData.h"
  20. #include "ProgressBars.h"
  21.  
  22. #define RectBar        1
  23. #define BarberBar        2
  24. #define ProgressBar        3
  25.  
  26.  
  27. /*----------*/
  28. void OpenProgressBars    (FSSpec*    fileSpec,
  29.                          short        fRefNum)
  30. {
  31.     WindowPtr        newWindow;
  32.     Rect            bounds;
  33.  
  34.     newWindow = GetWindow (WIND_ProgressBars);
  35.     if (fileSpec->name [0] != 0) {
  36.         SetWTitle (newWindow, fileSpec->name);
  37.     }
  38.     SetPort (newWindow);
  39.     SetNewInfo (newWindow);
  40.     cur->vScroll = nil;
  41.     cur->hScroll = nil;
  42.     cur->fileNum    = fRefNum;
  43.     cur->dirty        = false;
  44.     cur->filename    = NewString (fileSpec->name);
  45.     cur->windowKind = WProgressBars;
  46.     ((WindowPeek) curWindow)->windowKind = userKind + WProgressBars;
  47.     cur->witlHandle = GetResource ('Witl', WIND_ProgressBars);
  48.     cur->wictHandle = GetResource ('Wict', WIND_ProgressBars);
  49.  
  50.     cur->RectHandle = GetNewControl (CNTL_Rect, newWindow);
  51.  
  52.         cur->RectValue = 0;
  53.     cur->BarberHandle = GetNewControl (CNTL_Barber, newWindow);
  54.  
  55.         cur->BarberValue = 0;
  56.     cur->ProgressHandle = GetNewControl (CNTL_Progress, newWindow);
  57.  
  58.         cur->ProgressValue = 0;
  59.     cur->text = nil;
  60.  
  61.  
  62.     } /*OpenProgressBars*/
  63.  
  64.     /*----------*/
  65.     void CloseProgressBars    (void)
  66.     {
  67.  
  68.     DisposHandle ((Handle) cur->filename);
  69.     DiscardInfo (curWindow);
  70. } /*CloseProgressBars*/
  71.  
  72. /*----------*/
  73. void ControlProgressBars  (ControlHandle        whichControl,
  74.                          short                whichPart,
  75.                          Point                where)
  76. {
  77.     Rect            bounds;
  78.  
  79.  
  80. } /*ControlProgressBars*/
  81.  
  82. /*----------*/
  83. void MouseInProgressBars    (Point        where,
  84.                          short        modifiers)
  85. {
  86.     Rect            bounds;
  87.  
  88.  
  89. } /*MouseInProgressBars*/
  90.  
  91. /*----------*/
  92. void TypeInProgressBars   (char        ch)
  93. {
  94.     if (cur->text == nil) {
  95.         SysBeep (1);
  96.     } else {
  97.         TEKey (ch, cur->text);
  98.         cur->dirty = true;
  99.     }
  100. } /*TypeInProgressBars*/
  101.  
  102. /*----------*/
  103. void UpdateProgressBars (void)
  104. {
  105.     Rect            bounds;
  106.  
  107.     Draw1Control (cur->RectHandle);
  108.     Draw1Control (cur->BarberHandle);
  109.     Draw1Control (cur->ProgressHandle);
  110.     DrawClippedGrow (-15, -15);
  111. } /*UpdateProgressBars*/
  112.  
  113. /*----------*/
  114. void ActivateProgressBars    (Boolean    activate)
  115. {
  116.  
  117.     DrawClippedGrow (-15, -15);
  118. } /*ActivateProgressBars*/
  119.  
  120. /*----------*/
  121. void ResizeProgressBars    (void)
  122. {
  123.     /* application-specific code to resize items in window */
  124. } /*ResizeProgressBars*/
  125.  
  126. /*----------*/
  127. pascal void ScrollProgressBars    (short        newValue,
  128.                                  short        oldValue)
  129. {
  130.     /* application-specific code to scroll window */
  131. } /*ScrollProgressBars*/
  132.  
  133. /* ProgressBars */
  134.